home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Applications / Alpha.5.96 folder / sample / userStartup.tcl
Encoding:
Text File  |  1994-08-05  |  5.8 KB  |  57 lines  |  [TEXT/ALFA]
  1.  
  2. #================================================================================
  3. # This is my current 'userStartup.tcl'. Use this as an example of what can
  4. # be done. Do not use any of this directly, as the your files are doubtless in
  5. # different locations than mine.
  6. #================================================================================
  7.  
  8. set CmodeVars(thinkDebugger)     1
  9. set blockCursor                 0
  10. set backup                         1
  11. set backDir                        "$HOME:back"
  12. set horScrollBar                 0
  13.  
  14. bind 'p' <e> fillParagraphSentence
  15. bind 'j' <e>    fillParagraph
  16.  
  17. #================================================================================
  18. if {[file exists "$HOME:EditSource"]} {
  19.     set fileSets(Editor) [glob -t TEXT "$HOME:EditSource:*.c"]
  20.     addMenuItem -m choose "Editor"
  21. }
  22. #================================================================================
  23. # Lines added automatically.
  24. #================================================================================
  25.  
  26. set modeMenus(Text) { {thinkMenu}  }
  27. set thinkName "Internal:Development:Symantec C\+\+ for Macintosh:THINK Project Manager"
  28. set referencePath "Internal:Buckaroo:Buckaroo 2.0b1"
  29. set texturesPath "Internal:Textures:Textures™"
  30. addMenuItem -m switchTo "VersaTerm PRO"
  31. set switchTo(VersaTerm\ PRO) {Internal:Comm:Versaterm:VersaTerm PRO}
  32. addMenuItem -m switchTo "Textures™"
  33. set switchTo(Textures™) {Internal:Textures:Textures™}
  34. addMenuItem -m switchTo "NCSA Telnet 2.6"
  35. set switchTo(NCSA\ Telnet\ 2.6) {Internal:Comm:Telnet2.6 folder:NCSA Telnet 2.6}
  36.  
  37. set modeMenus(Text) { {thinkMenu} {toolserverMenu}  }
  38. set toolserverPath "External:CodeWarrior™ DR/3 Gold ƒ:ToolServer 1.1.1:ToolServer"
  39. addMenuItem -m switchTo "MacLayers v1.30"
  40. set switchTo(MacLayers\ v1.30) {Internal:Comm:MacLayers v1.30}
  41. set toolserverPath "External:CodeWarrior™ DR/3 Gold ƒ:ToolServer 1.1.1:ToolServer"
  42. set latexPath "Internal:Textures:Textures™"
  43. set "fileSets(Project)" {Internal:Development:Alpha:EditSource:bindings.c Internal:Development:Alpha:EditSource:dir.c Internal:Development:Alpha:EditSource:dirT.c Internal:Development:Alpha:EditSource:file_set.c Internal:Development:Alpha:EditSource:fp.c Internal:Development:Alpha:EditSource:menuIcon.c Internal:Development:Alpha:EditSource:oldFullpath.c Internal:Development:Alpha:EditSource:stat.c Internal:Development:Alpha:EditSource:think.c {Internal:Development:Alpha:EditSource:Command Period.c} Internal:Development:Alpha:EditSource:localTcl.c {Internal:Development:Alpha:Tcl 7.3:tclExpr.c} Internal:Development:Alpha:EditSource:missing.c Internal:Development:Alpha:EditSource:redraw.c Internal:Development:Alpha:EditSource:text.c Internal:Development:Alpha:EditSource:varargs.c Internal:Development:Alpha:EditSource:windows.c Internal:Development:Alpha:EditSource:wmanager.c Internal:Development:Alpha:EditSource:alfRegexp.c Internal:Development:Alpha:EditSource:oldEndre.c {Internal:Development:Alpha:Tcl 7.3:panic.c} Internal:Development:Alpha:EditSource:pop.c Internal:Development:Alpha:EditSource:port.c Internal:Development:Alpha:EditSource:search.c Internal:Development:Alpha:EditSource:shell.c {Internal:Development:Alpha:Tcl 7.3:tclUtil.c} Internal:Development:Alpha:EditSource:command.c Internal:Development:Alpha:EditSource:folder.c Internal:Development:Alpha:EditSource:io.c Internal:Development:Alpha:EditSource:unixio.c Internal:Development:Alpha:EditSource:frills.c Internal:Development:Alpha:EditSource:options.c Internal:Development:Alpha:EditSource:undo.c Internal:Development:Alpha:EditSource:main.c Internal:Development:Alpha:EditSource:tclXfilescan.c Internal:Development:Alpha:EditSource:key.c Internal:Development:Alpha:EditSource:misc.c Internal:Development:Alpha:EditSource:moreTcl.c Internal:Development:Alpha:EditSource:petesTickle.c {Internal:Development:Alpha:Tcl 7.3:tclCmdMZ.c} {Internal:Development:Alpha:Tcl 7.3:regexp.c} {Internal:Development:Alpha:Tcl 7.3:tclAsync.c} {Internal:Development:Alpha:Tcl 7.3:tclBasic.c} {Internal:Development:Alpha:Tcl 7.3:tclCkalloc.c} {Internal:Development:Alpha:Tcl 7.3:tclCmdAH.c} {Internal:Development:Alpha:Tcl 7.3:tclCmdIL.c} {Internal:Development:Alpha:Tcl 7.3:tclEnv.c} Internal:Development:Alpha:EditSource:tclXhandles.c Internal:Development:Alpha:EditSource:tclXregexp.c {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macUnix.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:MoreFilesExtras.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:StringUtils.c} {Internal:Development:Alpha:Tcl 7.3:tclGet.c} {Internal:Development:Alpha:Tcl 7.3:tclHash.c} {Internal:Development:Alpha:Tcl 7.3:tclHistory.c} {Internal:Development:Alpha:Tcl 7.3:tclLink.c} {Internal:Development:Alpha:Tcl 7.3:tclMtherr.c} {Internal:Development:Alpha:Tcl 7.3:tclUnixAZ.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:DirectoryCopy.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:FileCopy.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macAppInit.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macEnv.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macGlob.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macTclRez.r} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:macUtil.c} {Internal:Development:Alpha:Tcl 7.3:MacTcl Source:MoreFiles.c} {Internal:Development:Alpha:Tcl 7.3:tclParse.c} {Internal:Development:Alpha:Tcl 7.3:tclProc.c} {Internal:Development:Alpha:Tcl 7.3:tclUnixStr.c} {Internal:Development:Alpha:Tcl 7.3:tclUnixUtil.c} {Internal:Development:Alpha:Tcl 7.3:tclVar.c} Internal:Development:Alpha:EditSource:emacs.c}
  44. addMenuItem -m choose "Project"
  45. set modeMenus(Text) { {thinkMenu}  }
  46.  
  47. #The next four lines add the perl mode.
  48. set macperlPath "Internal:Development:Alpha:ae.pl"
  49. source ":Tcl:UserCode:MacPerl.tcl"
  50. rebuildPerlMenu
  51. enableMenuItem install macPerl 0
  52.  
  53. addMenuItem -m switchTo "BibTeX"
  54. set switchTo(BibTeX) {Internal:Textures:BibTeX}
  55. set excaliburPath "Internal:Excalibur Folder:Excalibur"
  56. set modeMenus(Tcl) { {tclMenu} {thinkMenu}  }
  57.